e0<-par.setting[1] 
ea<-par.setting[2]
inv.cost<-par.setting[3]
p0<-par.setting[4]
p1<-par.setting[5]
penalty<-par.setting[6]
old.payment.outcome<-par.setting[7]
chat.invest<-par.setting[8]
chat.payment<-par.setting[9]
# inv.social.norm<-par.setting[10]

Period<-par.setting[11]

inv.social.norm<-1

# from llk.i   par.setting<-c(e0,ea,inv.cost,p0,p1,penalty,old.payment.outcome,old.attack.outcome,old.ransom)

gamma.pay<-par.behavior[1]
gamma.r<-par.behavior[2]
gamma.a<-par.behavior[3]
gamma.i<-par.behavior[4]
par.me.lag<-par.behavior[5]
par.pay.social.norm<-par.behavior[6]
par.pay.fairness<-par.behavior[7]
par.inv.social.norm<-par.behavior[8]
par.you.lag<-par.behavior[9]

par.r<-0
par.inv.chat<-0

